home *** CD-ROM | disk | FTP | other *** search
/ MGE USV-Infopaket 2003 January / MGE USV Infopaket Ausgabe 1-2003 (German).iso / extreme / INIT.DIR / 00004_Script_init variable < prev    next >
Text File  |  2001-07-12  |  3KB  |  141 lines
  1.  
  2.  
  3. on exitFrame
  4.   
  5.   
  6.   --  initialise le volume sonore general
  7.   the soundlevel = 3
  8.   
  9.   
  10.   -- preparation des informations
  11.   global pPrefs
  12.   pPrefs = [:]
  13.   
  14.   
  15.   -- Les produits dispo :
  16.   Global gProduitDispo
  17.   gProduitDispo = []
  18.   
  19.   
  20.   -- Les items des produits dispo :
  21.   Global gTableProduit
  22.   gTableProduit = []
  23.   
  24.   
  25.   --Les choix de guides dispo
  26.   Global gGuideChoix
  27.   gGuideChoix = []
  28.   
  29.   
  30.   -- Les choix du menu general
  31.   Global gMenuChoix
  32.   gMenuChoix = []
  33.   
  34.   
  35.   -- le laps de temps entre le diaporama
  36.   addprop pPrefs , #gTimer , 10000
  37.   --le numero du lineaire ou de la perso en cours
  38.   addprop pPrefs , #Typ , -1
  39.   
  40.   --de quelle presentation il s'agit en mode master
  41.   addprop pPrefs , #Type2 , "S"
  42.   
  43.   
  44.   -- la piste video
  45.   addprop pPrefs , #PisteVideo , 1
  46.   
  47.   
  48.   -- la langue
  49.   addprop pPrefs , #Lang , "France"  --"english"
  50.   
  51.   
  52.   -- le mode d'utilisation
  53.   addprop pPrefs , #Mode , "user" --"USER"  --"MASTER"
  54.   
  55.   -- chemin pour l'edition
  56.   Global gPaths
  57.   gPaths = ""
  58.   
  59.   -- le type de presentation
  60.   addProp pPrefs , #Presente , "Sta" --"Per" "Lin" 
  61.   
  62.   -- le numero d'utilisateur
  63.   addProp pPrefs , #NumUser , "000"
  64.   
  65.   
  66.   -- le nombre d'images dispo pour le slide
  67.   addProp pPrefs , #IMGmax , 0
  68.   
  69.   -- la presence d'une video
  70.   addProp pPrefs , #VideoPresence , 0
  71.   
  72.   -- definie le couleur pour le roll
  73.   addProp pPrefs , #coulRvB , "rgb(255,0,0)"
  74.   
  75.   -- definie le logo par defaut ;
  76.   addProp pPrefs , #Logo , "logodefaut"
  77.   LoadLogo("LOGO")
  78.   
  79.   --  pPrefs.Logo = tempo
  80.   
  81.   
  82.   --produit par defaut
  83.   global  gProduit 
  84.   gProduit = 1
  85.   
  86.   
  87.   --Navigation interne
  88.   Global gNavInter
  89.   gNavInter = -1
  90.   
  91.   -- Memorisation de la navigation 
  92.   Global gRetourMemo
  93.   gRetourMemo = ["0,00,0,0,0"]
  94.   
  95.   
  96.   
  97.   Global gDelimiterChemin 
  98.   
  99.   if the platform contains "Mac" then
  100.     go to movie (gDelimiterChemin & "DXR" & gDelimiterChemin &"INTRO")
  101.   else
  102.     go to movie ("DXR" & gDelimiterChemin &"intro")
  103.   end if
  104.   
  105.   
  106. end
  107.  
  108.  
  109. --
  110. --
  111. --
  112. --
  113. --on newfilempty nom,contenant
  114. --  
  115. --  ecriture(nom,contenant )
  116. --  
  117. --end newfilempty
  118. --
  119. --
  120. --on ecriture nom,contenu
  121. --  
  122. --  
  123. --  nObjet = new(xtra "fileio")
  124. --  
  125. --  openfile(nObjet,nom,2)
  126. --  delete(nObjet)
  127. --  closefile(nObjet)
  128. --  
  129. --  createfile(nObjet,nom)
  130. --  
  131. --  openfile(nObjet,nom,2)
  132. --  writestring(nObjet,contenu)
  133. --  closefile(nObjet)
  134. --  nObjet = 0
  135. --  
  136. --end ecriture
  137. --
  138. --
  139. --
  140. --
  141.